home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / btrtest.exe / BTRIEVE.BAS next >
Encoding:
BASIC Source File  |  1992-03-15  |  1.9 KB  |  73 lines
  1. 'System Level Global Constansts
  2. Global Const TRUE = -1
  3. Global Const FALSE = 0
  4.  
  5. 'Btrieve Operation Code Constants
  6. Global Const BOPEN = 0
  7. Global Const BCLOSE = 1
  8. Global Const BINSERT = 2
  9. Global Const BUPDATE = 3
  10. Global Const BDELETE = 4
  11. Global Const BGET_EQ = 5
  12. Global Const BGET_NEXT = 6
  13. Global Const BGET_PREV = 7
  14. Global Const BGET_GT = 8
  15. Global Const BGET_GOE = 9
  16. Global Const BGET_LT = 10
  17. Global Const BGET_LOE = 11
  18. Global Const BGET_FIRST = 12
  19. Global Const BGET_LAST = 13
  20. Global Const BCREATE = 14
  21. Global Const BSTAT = 15
  22. Global Const BBEG_TRAN = 19
  23. Global Const BEND_TRAN = 20
  24. Global Const BABORT_TRAN = 21
  25. Global Const BGET_POS = 22
  26. Global Const BGET_DIRECT = 23
  27. Global Const BSTEP_NEXT = 24
  28. Global Const BSTOP = 25
  29. Global Const BVERSION = 26
  30. Global Const BUNLOCK = 27
  31. Global Const BRESET = 28
  32. Global Const BSTEP_FIRST = 33
  33. Global Const BSTEP_LAST = 34
  34. Global Const BSTEP_PREV = 35
  35.  
  36. Type POSBLK
  37.     PBELEMENTS As String * 128   'MUST Be 128 Bytes
  38. End Type
  39.  
  40. Type KEYBUFFER
  41.     FILENAME As String * 128
  42. End Type
  43.  
  44. Type BUFFER
  45.     EmpNum As String * 5
  46.     LstNam As String * 20
  47.     FstNam As String * 20
  48.     EmpMid As String * 20
  49.     EmpKik As String * 12
  50.     Addr01 As String * 40
  51.     Addr02 As String * 40
  52.     SocSec As String * 25
  53.     State  As String * 20
  54.     ZipCod As String * 10
  55.     County As String * 20
  56.     Countr As String * 20
  57.     HPhone As String * 15
  58.     WPhone As String * 15
  59.     Filler As String * 218
  60.     'File length = 500 bytes
  61. End Type
  62.  
  63. Declare Function WBTRVINIT Lib "WBTRCALL.DLL" (INIT As Any) As Integer
  64. Declare Function WBTRVSTOP Lib "WBTRCALL.DLL" () As Integer
  65. Declare Function BTRCALL Lib "WBTRCALL.DLL" (ByVal OP%, PB As POSBLK, DB As Any, DL As Integer, KB As Any, ByVal KL%, ByVal KN%) As Integer
  66.  
  67. Global INIT As String * 64
  68. Global DATABUFF As BUFFER
  69. Global POSBLOCK As POSBLK
  70. Global KEYBUFF As KEYBUFFER
  71. Global KeyNum As Integer
  72.  
  73.